home *** CD-ROM | disk | FTP | other *** search
/ El Mac 9 / El Mac 9.iso / Shareware / Applications / Charting Coach v1.5 / Charting Coach v1.dxr / 00287.ls < prev    next >
Encoding:
Text File  |  1996-04-08  |  445 b   |  18 lines
  1. on mouseUp
  2.   global dayNo, firstMonthlyDay, beginDate
  3.   if the doubleClick then
  4.     exit
  5.   end if
  6.   cursor(4)
  7.   set x to the clickOn
  8.   if the cursor of sprite x > 200 then
  9.     killcorrection()
  10.     puppetSprite(7, 1)
  11.     puppetSprite(7, 0)
  12.     go("Monthly Rel")
  13.     set dayNo to x - 37 + firstMonthlyDay
  14.     put "Choose the best stamp for Day " & dayNo & ": " & GetLongDate(dayNo + beginDate - 1) into field "choose rel"
  15.   end if
  16.   cursor(0)
  17. end
  18.